home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
BPAS9.ARJ
/
TEMP.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-09-02
|
810b
|
27 lines
{-----------------------------}
{ ASCII.PROC }
{-----------------------------}
PROCEDURE ASCII;
{ See Tom Swan p. 39 ff }
VAR
Ch : Char;
Num : Integer;
BEGIN
ClrScr;
WriteLn;
WriteLn;
Write ( 'ASCII Character Set ' );
WriteLn;
WriteLn;
FOR Num := 0 TO 255 DO
WriteLn ( 'ASCII Number = ',Num, ' Character = ',Char(Num) );
ReadLn;
END;
{ As an exercise, convert this procedure to
one that prints out the ASCII code. See
Tom Swan pp. 587-588 to declare a file,
then make the file LPT1. )